*********************************************************************************
* Supplemental Material, Figures S5.4-5.6										*
*********************************************************************************

* Project: 	No Zeitenwende (yet)
* Authors: 	Matthias Mader
* Date:		March 2023	

* Data: GLES panel survey, W1-W22

*********************************************************************************

*** Setup

	clear
	set more off            						// Disable partitioned output
	set dp period									// Use comma instead of dot for decimals
	set linesize 80         						// Line size limit to make output more readable
	macro drop _all         						// clear all macros
	set scheme plotplainblind, permanent				// set graph scheme, e.g., cleanplots, plottig plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"		// set font in graphs | "Arial" | "Times New Roman"


*** Figure S5.4

*** Support for increasing defence spending

	use "DATA_clean.dta", clear

	sum spending_diff_2217
	reg spending_diff_2217 ib8.w17_pi pint_17 i.east i.spending_17 age 
	estimates store m1
	margins, at(w17_pi=(1 2 3 4 5 6 8)) at(pint_17=(1 5)) at(east=(1 0))  post

	coefplot, name(g1, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.8047664, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Increase military spending", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Oppose annexation of Crimea

	use "DATA_clean.dta", clear

	sum annexcrimea_diff_228
	reg annexcrimea_diff_228 ib8.w8_pi pint_8 i.east i.annexcrimea_8 age 
	estimates store m1
	margins, at(w8_pi=(1 2 3 4 5 6 8)) at(pint_8=(1 5)) at(east=(1 0))  post

	coefplot, name(g2, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.5852308, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Oppose annexation of Crimea", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Strive for good relations with Putin


	use "DATA_clean.dta", clear

	sum relationputin_diff_222
	reg relationputin_diff_222 ib8.w2_pi pint_2 i.east i.relationputin_2 age 
	estimates store m1
	margins, at(w2_pi=(1 2 3 4 5 6 8)) at(pint_2=(1 5)) at(east=(1 0))  post

	coefplot, name(g3, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(-.8947084, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Good relations with Putin", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


*** Support for confrontational Russian policy

	use "DATA_clean.dta", clear

	sum confrRUS_diff_2216 
	reg confrRUS_diff_2216 ib8.w16_pi pint_16 i.east i.confrRUS_16 age 
	estimates store m2
	margins, at(w16_pi=(1 2 3 4 5 6 8)) at(pint_16=(1 5)) at(east=(1 0))  post

	coefplot, name(g4, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.4981194, lcolor(purple)  lwidth(.5)) ///
		title("Confrontational RUS policy", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Confrontational CHI policy

	use "DATA_clean.dta", clear

	sum confrCHI_diff_2216
	reg confrCHI_diff_2216 ib8.w16_pi pint_16 i.east i.confrCHI_16 age 
	estimates store m1
	margins, at(w16_pi=(1 2 3 4 5 6 8)) at(pint_16=(1 5)) at(east=(1 0))  post

	coefplot, name(g5, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.081612, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Confrontational CHI policy", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Protect EU borders

	use "DATA_clean.dta", clear

	sum protectEUborders_diff_2221
	reg protectEUborders_diff_2221 ib8.w21_pi pint_21 i.east i.protectEUborders_21 age 
	estimates store m1
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g6, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.012348, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Protect EU borders", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)



*** Figure S5.5

*** Favorable views on Russia

	use "DATA_clean.dta", clear

	sum feelRUS_diff_2221
	reg feelRUS_diff_2221 ib8.w21_pi pint_21 i.east c.feelRUS_21 age 
	estimates store m5
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g7, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(-1.181721, lcolor(purple)   lwidth(.5)) ///
		title("Favorable views on Russia", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in views", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


*** Favorable views of US

	use "DATA_clean.dta", clear

	sum feelUS_diff_2221
	reg feelUS_diff_2221 ib8.w21_pi pint_21 i.east c.feelUS_21 age 
	estimates store m4
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g8, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.01, lcolor(purple)   lwidth(.5)) /// BLUE LINE MOVED SLIGHTLY TO THE RIGHT FOR PRESENTATIONAL PURPOSES
		title("Favorable views on US", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in views", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Favorable view of China

	use "DATA_clean.dta", clear

	sum feelCHI_diff_2221
	reg feelCHI_diff_2221 ib8.w21_pi pint_21 i.east i.feelCHI_21 age 
	estimates store m1
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g9, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.0214008, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Favorable views of China", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


*** Figure S5.6

***Use of military force

	use "DATA_clean.dta", clear

	sum mili_diff_2221
	reg mili_diff_2221 ib8.w21_pi pint_21 i.east c.mili_21 age 
	estimates store m1
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g10, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(-.0345692, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Use of military force", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Multilateralism

	use "DATA_clean.dta", clear

	sum multi_diff_2221
	reg multi_diff_2221 ib8.w21_pi pint_21 i.east c.multi_21 age 
	estimates store m1
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g11, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.0958826, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Multilateralism", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Change in attitude", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)



***Isolationism

	use "DATA_clean.dta", clear

	sum iso_diff_2221
	reg iso_diff_2221 ib8.w21_pi pint_21 i.east c.iso_21 age 
	estimates store m1
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g12, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(-.1374858, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Isolationism", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Isolationism", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)


***Atlanticism

	use "DATA_clean.dta", clear

	sum atla_diff_2221
	reg atla_diff_2221 ib8.w21_pi pint_21 i.east c.atla_21 age 
	estimates store m1
	margins, at(w21_pi=(1 2 3 4 5 6 8)) at(pint_21=(1 5)) at(east=(1 0))  post

	coefplot, name(g13, replace) ///
		xline(0, lcolor(black) lpattern(shortdash)  lwidth(.5)) ///
		xline(.0894294, lpattern(shortdash) lcolor(purple) lwidth(.5)) ///
		title("Atlanticism", size(medlarge)) ///
		xscale(range(-1.5 1.5)) xlabel(-1.5(.5) 1.5, labsize(medlarge)) ///
		xtitle("Isolationism", size(medlarge)) ///
		coeflabels(1._at="PI: SPD" ///
					2._at="PI: Greens" ///
					3._at="PI: FDP" ///
					4._at="PI: CDU/CSU" ///
					5._at="PI: AfD" ///
					6._at="PI: The Left" ///
					7._at="PI: None" ///
					8._at="Pol. interest: low" ///
					9._at="Pol. interest: high" ///
					10._at="East Germans" ///
					11._at="West Germans" , labsize(medlarge)) /// 
		xsize(3) ysize(3)
